home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / person1a / inpboxmo.bas < prev    next >
BASIC Source File  |  1999-08-28  |  2KB  |  44 lines
  1. Attribute VB_Name = "InpBoxModule1"
  2. Option Explicit
  3. Public Inp1, DefInp As String
  4.  
  5. Public Sub InpBox(InpObj As Object, InpPrompt As String, Inp As String, InpTitle As String, InpFont As String, InpX As Integer, InpY As Integer)
  6.  
  7. With InpObj
  8. InpObj.Cls
  9. Inp1 = ""
  10. .Text1.BackColor = RGB(210, 255, 255)
  11. .Text1.ForeColor = RGB(0, 0, 128)
  12. .Text1.FontBold = False
  13. .Label2.BackColor = RGB(0, 96, 0)
  14. .Label2.Left = 30
  15. .Label2.Width = InpObj.Width - 75
  16. .Label2.Caption = InpTitle
  17. .Label1.Font = InpFont
  18. .Label2.Font = InpFont
  19. .Command2.Font = InpFont
  20. .Command3.Font = InpFont
  21. .Command1.Left = InpObj.Width - 360
  22. .Label1.Caption = InpPrompt
  23.     If .Label1.Height <= 720 Then
  24.     InpObj.Move InpX, InpY, 5010, 1680
  25.     .Image1.Top = 405
  26.     Else
  27.     InpObj.Move InpX, InpY, 5010, .Label1.Height + 900
  28.     .Image1.Top = .Label1.Top + (.Label1.Height / 2) - 480
  29.     End If
  30. .Text1.Top = InpObj.Height - 450
  31. .Command3.Top = InpObj.Height - 345
  32. .Command2.Top = InpObj.Height - 645
  33. InpObj.Line (0, 0)-(InpObj.Width - 15, InpObj.Height - 15), RGB(128, 128, 128), B
  34. InpObj.Line (15, 15)-(InpObj.Width - 15, 15), RGB(255, 255, 255)
  35. InpObj.Line (15, 15)-(15, InpObj.Height - 15), RGB(255, 255, 255)
  36. InpObj.Line (15, InpObj.Height - 30)-(InpObj.Width - 30, InpObj.Height - 30), RGB(128, 128, 128)
  37. InpObj.Line (InpObj.Width - 30, 30)-(InpObj.Width - 30, InpObj.Height - 30), RGB(128, 128, 128)
  38. .Text1.Text = Inp
  39. .Text1.SelStart = 0
  40. .Text1.SelLength = Len(Inp)
  41. InpForm1.Show 1
  42. End With
  43. End Sub
  44.